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th ; Detailed Current Edit History 
PORSIDATE - return month, day, year as INTEGER*®4 
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; yale Macro V04-00 Page 
TITLE PoRepaTe ; Time and D 
IDENT /1-002/ ; File: J 


FORRTL.SRCJFORJDATE.MAR; 1 
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FORSJDATE ; Time and Date as long integers 15-SEP-1984 754: 
1-002 ° ° Pat ioety Pi 13:3 : 
i te 
i ATE.M 


MARARAARARAAARASARAAAALARAREAEARASEASE RELA RRR ALAR RRS RRR AREA REAR RARER SARS ARDS SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR A THER 
Pp 
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THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
A NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY © 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepPORAT! Ok NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 
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FACILITY: FORTRAN SYSTEM LIBRARY 
ae 
ABSTRACT: 


Return current month, day, and year as INTEGER*4 values. 


VERSION: 0 
HISTORY: 


AUTHOR : ; 
Jonathan M. Taylor, 17-Aug-77: Version 0 


MODIFIED BY: 
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6 ~SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 0 of FORSJDATE 
4 ; 1-001 = Update ot yt number and copyright notice. JBS 16-NOV-78 
g § 1-803 = 8 Oe as 35-bEC-78 
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3 - Add ''_"' to the PSECT directive. JBS 
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PIC, SHR, LONG, EXE, NOWRT 


_FORSCODE 


-SBTTL DECLARATIONS 
INCLUDE FILES: 
oerr.mar 
EXTERNAL SYMBOLS: 
ECLARATIONS: 
PSECT 
EQUATED SYMBOLS: 
: OWN STORAGE: 
none 


; MACROS: 
; PSECT D 
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FORSJDATE ; Time and Date as long integers 15-SEP-1984 23:54:37 VAX/VMS Macro Vv04-00 Page 4 
1-002 FORSJDATE = return aonth, dev. year as 1 6=SEP-1984 $9535: FORRTL.SRCJFORJDATE.MAR; 1 ° (4) 
a3 ; -SBTTL FORSJDATE = return month, day, year as INTEGER*4 
5 3++ 
3 § ; FUNCTIONAL DESCRIPTION: 
8 8: FORSJDATE uses system service SNUMTIM to get date information. 
0 9; This information is converted to the appropriate type and stored 
BS s' ; through the addresses passed as parameters. 
999 3¢ ; CALLING SEQUENCE: 
999 34 ; CALL FORSJDATE (month.wl.r, day.wl.r, year.wl.r) 
909 %6 : INPUT PARAMETERS: 
$000 98 : month.wl.r adr of longword to place month (1-12) integer 
0000 99 ; day.wl.r adr of longword to place day (1-31) integer 
i444 10 ; year.wil.r adr of longword to place year (0-99) integer 
0000 198 : IMPLICIT INPUTS: 
0000 103; NONE 
0000 104 ; 
0000 105 ; OUTPUT PARAMETERS: 
0000 107 — 
0000 108 : IMPLICIT OUTPUTS: 
ms ip 
0000 111 : COMPLETION CODES: 
0000 118: — 
0000 114 : SIDE EFFECTS: 
0000 115; SIGNALS Integer Overflow (this should never happen) 
0000 116; 
0000 117 ;-- 
0000 (118 
$3331 
4000 0000 121 -ENTRY FORSJDATE, “M<IV> 
7s 10 2 94 \$¢ SUBL #16, SP ; save 8 words for SNUMTIM 
50 SE oD0 O0N0 12 MOVL SP, RO ; RO => data area 
Bote is SNUMTIM_S (RO) 3 get system time values 
So tt Ss Oi 125 MOVZWL ~(SP)+, RO ; RO = “year since 0° 
51 4 pig 1 $ CLAL R 3 aS a quadword value 
50 50 50 00000064 8F B 001 1 EDIV #100, RO, RO, RO ; RO = two digit year value 
0c BC) O50 0021 128 MOVL RO, @12(AP) 3; return year 
04 BC BE ; 0025 \¢3 CVTWL (SP)+, a4 (AP) 3; return month 
08 BC 6E 0029 130 CVTWL (SP), @B(AP) ; return day 
04 002D 131 RET 3; return 
O2E 13 
O2E 1 
O02E 134 .END 
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FORSJDATE ; Time and Date as long integers i oj te bd 9 $3: 2$:37 pu Macro v04-00 Page 5 
Symbol table 6-SEP=1984 10:57:10 (CFORRTL.SRCIFORJDATE.MAR;1 (4) 
FORSJDATE 00000000 RG 4 
SYSSNUMTIM eeereeee G 1 
p-oeeeececea eeececeecoece + 
! ;_Psect synopsis H 
PSEC? name Allocation PSECT No. Attributes 
ABS 444444 S ¢ 0.) B9 0.) NOPIC USR CON ABS LCL NOSHR —5 NORD NOWRT NOVEC BYTE 
“ FORSCODE OOOO002E ( 46.) O01¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
Peer eer eer ewe nea ae eon emn + 
! \ Per tormance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 O80 00-06 00 +00 30) «a5 
Command processing 111 SS 00:00:04.32 
Pass 97 00:00:00.51 BF BO BF Be 
Symbol table sort 0 BB 00:00 56 00:00:90.00 
Pass 2 38 00:00:00.28 00:00:01.34 
Symbol table output 2 ses 9 SF 00:00:00.01 
Psect synopsis output 2 0:00:00.02 00:00:00.13 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 281 00:00:01.44 00:00:09.96 


The working set Limit was 1050 pages. 

1669 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 2 non-local and 0 local symbols. 
134 source Lines were read in Pass 1, produc ng object records in Pass 2. 
2 pages of virtual memory were used to define 2 macros. 


Macro Library name Macros defined 
“S255SDUA2B:(SYSLIBISTARLET.MLB:20 0 i itt e 
13 GETS were required to define 2 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORJDATE/ORJ=OBJ$:FORJDATE MSRC$:FORJDATE/UPDATE=(ENHS$:FORJDATE) 
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